home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / R-Shows / (c)sdg.d64 / castle (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  884b  |  27 lines
  1. 19300 REM***CASTLE CONGRATULATIONS ROUTINE**
  2. 19310 PRINT"[152][147]"
  3. 19320 PRINTTAB(0)"                     [175][185][162]
  4. 19330 [153][163]0)"                       SPC( SPC(CLOSESPC(CLOSESPC(
  5. 19340 PRINTTAB(0)"                       [166][166][166][166][166][166][166]
  6. 19350 [153][163]0)"                       SPC(SPC(SPC(SPC(SPC(SPC(SPC(
  7. 19360 PRINTTAB(0)"                       [166][166][166][166][166][166][166]
  8. 19370 [153][163]0)"                        NOTNOTNOTNOTNOT
  9. 19380 PRINTTAB(0)"                        [166][166][220][220][166]
  10. 19390 [153][163]0)"                  SPC( SPC( SPC((null)SPC(SPC(SPC(SPC(SPC(
  11. 19400 PRINTTAB(0)"                  [166][166][166][166][166][220][220][220][166][166][166]
  12. 19410 [153][163]0)"                  SPC(SPC((null)(null)SPC((null)SPC(SPC(SPC(SPC(SPC(
  13. 19420 PRINTTAB(0)"                  [166][166][166][220][166][166][166][166][166][166][166]
  14. 19430 [153][163]0)"                   SPC(SPC(SPC(SPC(SPC((null)SPC((null)(null)SPC(
  15. 19440 PRINTTAB(0)"                    [166][166][166][166][166][166][166][166][166]
  16. 19450 [153][163]0)"                    NOTNOTNOTNOTNOTNOTNOTNOTNOT
  17. 19460 PRINTTAB(0)"                    [166][166][220][220][220][166][220][166][220]
  18. 19470 [153][163]0)"                    SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC((null)
  19. 19475 PRINT"[158]"
  20. 19490 PRINT"[145]";
  21. 19500 PRINT"                                        "
  22. 19520 PRINT"         [146]KING OF THE QUIZ KIDS!         "
  23. 19540 PRINT"                                        "
  24. 19550 PRINT"[145]";
  25. 19570 PRINT"[145]"
  26. 19580 FORTT=1TO2500:NEXTTT
  27.